home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / AGS_CM10.ZIP / ags_cmt.ppe (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-06-14  |  5KB  |  308 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     String   TSTRING001(120)
  33.     String   TSTRING002(40)
  34.     String   TSTRING003(40)
  35.     String   TSTRING004(40)
  36.     String   STRING005
  37.     String   STRING006
  38.     String   STRING007
  39.     String   STRING008
  40.     String   STRING009
  41.     String   STRING010
  42.     String   STRING011
  43.     String   STRING012
  44.     String   STRING013
  45.  
  46. ;------------------------------------------------------------------------------
  47.  
  48.     INTEGER002 = 1
  49.     INTEGER003 = 1
  50.     INTEGER004 = 1
  51.     INTEGER005 = 2
  52.     STRING012 = "Y"
  53.     GetUser
  54.     STRING006 = ReadLine(PPEPath() + "ags_cmt.cfg", 1)
  55.     STRING007 = ReadLine(PPEPath() + "ags_cmt.cfg", 2)
  56.     INTEGER006 = ReadLine(PPEPath() + "ags_cmt.cfg", 3)
  57.     INTEGER007 = ReadLine(PPEPath() + "ags_cmt.cfg", 4)
  58.     STRING011 = ReadLine(PPEPath() + "ags_cmt.cfg", 5)
  59.     INTEGER011 = ReadLine(PPEPath() + "ags_cmt.cfg", 6)
  60.     INTEGER010 = ReadLine(PPEPath() + "ags_cmt.cfg", 7)
  61.     STRING013 = ReadLine(PPEPath() + "ags_cmt.cfg", 8)
  62.     INTEGER012 = ReadLine(PPEPath() + "ags_cmt.cfg", 9)
  63.     INTEGER013 = ReadLine(PPEPath() + "ags_cmt.cfg", 10)
  64.     :LABEL001
  65.     STRING009 = ReadLine(PPEPath() + "ags_cmt.cfg", INTEGER005 + 9)
  66.     STRING009 = Trim(STRING009, " ")
  67.     If ((STRING009 == "") || (STRING009 == " ")) Goto LABEL002
  68.     Inc INTEGER005
  69.     Goto LABEL001
  70.     :LABEL002
  71.     FClose -1
  72.     STRING005 = INTEGER005 / 3
  73.     For INTEGER001 = 11 To 11 + STRING005 * 3 - 1
  74.         TSTRING001(INTEGER001) = ReadLine(PPEPath() + "ags_cmt.cfg", INTEGER001)
  75.     Next
  76.     For INTEGER001 = 11 To 11 + STRING005 * 3 - 1
  77.         TSTRING002(INTEGER002) = TSTRING001(INTEGER001)
  78.         TSTRING002(INTEGER002) = Trim(TSTRING002(INTEGER002), " ")
  79.         Inc INTEGER002
  80.         INTEGER001 = INTEGER001 + 2
  81.     Next
  82.     For INTEGER001 = 12 To 11 + STRING005 * 3 - 1
  83.         TSTRING003(INTEGER003) = TSTRING001(INTEGER001)
  84.         Inc INTEGER003
  85.         INTEGER001 = INTEGER001 + 2
  86.     Next
  87.     For INTEGER001 = 13 To 11 + STRING005 * 3 - 1
  88.         TSTRING004(INTEGER004) = TSTRING001(INTEGER001)
  89.         TSTRING004(INTEGER004) = Trim(TSTRING004(INTEGER004), " ")
  90.         Inc INTEGER004
  91.         INTEGER001 = INTEGER001 + 2
  92.     Next
  93.     Cls
  94.     DispFile PPEPath() + "ags_cmt.pcb", 0
  95.     For INTEGER002 = 1 To 2
  96.         AnsiPos INTEGER006, INTEGER007 + INTEGER002
  97.         Print STRING006 + TSTRING002(INTEGER002)
  98.         AnsiPos INTEGER011, INTEGER010
  99.         Print STRING011 + TSTRING004(1)
  100.     Next
  101.     AnsiPos INTEGER012, INTEGER013
  102.     Print STRING013 + "YeS"
  103.     If (STRING005 > 2) Gosub LABEL011
  104.     INTEGER002 = 1
  105.     INTEGER003 = 1
  106.     INTEGER004 = 1
  107.     :LABEL003
  108.     STRING008 = Inkey()
  109.     If ((STRING008 == "UP") && (INTEGER002 > 1)) Gosub LABEL004
  110.     If ((STRING008 == "DOWN") && (INTEGER002 < STRING005)) Gosub LABEL006
  111.     If (STRING008 == Chr(13)) Gosub LABEL017
  112.     If (STRING008 == Chr(27)) Goto LABEL015
  113.     If ((STRING008 == "r") || (STRING008 == "R")) Gosub LABEL013
  114.     INTEGER008 = Random(Len(TSTRING002(INTEGER002)))
  115.     If ((INTEGER008 == INTEGER009) || (Mid(TSTRING002(INTEGER002), INTEGER008, 1) == " ")) Goto LABEL003
  116.     INTEGER009 = INTEGER008
  117.     AnsiPos INTEGER006 + INTEGER008 - 1, INTEGER007 + 1
  118.     Print STRING007 + Upper(Mid(TSTRING002(INTEGER002), INTEGER008, 1))
  119.     Delay 3
  120.     AnsiPos INTEGER006 + INTEGER008 - 1, INTEGER007 + 1
  121.     Print STRING006 + Mid(TSTRING002(INTEGER002), INTEGER008, 1)
  122.     Goto LABEL003
  123.     :LABEL004
  124.     AnsiPos INTEGER006, INTEGER007
  125.     Print Space(Len(TSTRING002(INTEGER002 - 1)))
  126.     AnsiPos INTEGER006, INTEGER007
  127.     If (INTEGER002 == 1) Goto LABEL005
  128.     Print STRING006 + TSTRING002(INTEGER002 - 2)
  129.     :LABEL005
  130.     AnsiPos INTEGER006, INTEGER007 + 1
  131.     Print Space(Len(TSTRING002(INTEGER002)))
  132.     AnsiPos INTEGER006, INTEGER007 + 1
  133.     Print STRING006 + TSTRING002(INTEGER002 - 1)
  134.     AnsiPos INTEGER006, INTEGER007 + 2
  135.     Print Space(Len(TSTRING002(INTEGER002 + 1)))
  136.     AnsiPos INTEGER006, INTEGER007 + 2
  137.     Print STRING006 + TSTRING002(INTEGER002)
  138.     Dec INTEGER002
  139.     If (INTEGER002 < 1) INTEGER002 = 1
  140.     INTEGER004 = INTEGER002
  141.     INTEGER003 = INTEGER002
  142.     If (STRING005 > 2) Gosub LABEL009
  143.     Gosub LABEL008
  144.     Return
  145.     :LABEL006
  146.     Inc INTEGER002
  147.     If (INTEGER002 > STRING005) INTEGER002 = STRING005
  148.     INTEGER004 = INTEGER002
  149.     INTEGER003 = INTEGER002
  150.     AnsiPos INTEGER006, INTEGER007
  151.     Print Space(Len(TSTRING002(INTEGER002 - 2)))
  152.     AnsiPos INTEGER006, INTEGER007
  153.     Print STRING006 + TSTRING002(INTEGER002 - 1)
  154.     AnsiPos INTEGER006, INTEGER007 + 1
  155.     Print Space(Len(TSTRING002(INTEGER002 - 1)))
  156.     AnsiPos INTEGER006, INTEGER007 + 1
  157.     Print STRING006 + TSTRING002(INTEGER002)
  158.     AnsiPos INTEGER006, INTEGER007 + 2
  159.     Print Space(Len(TSTRING002(INTEGER002)))
  160.     AnsiPos INTEGER006, INTEGER007 + 2
  161.     Print STRING006 + TSTRING002(INTEGER002 + 1)
  162.     If (STRING005 > 2) Gosub LABEL009
  163.     Gosub LABEL007
  164.     Return
  165.     :LABEL007
  166.     AnsiPos INTEGER011, INTEGER010
  167.     Print Space(Len(TSTRING004(INTEGER004 - 1))) + "@X08"
  168.     AnsiPos INTEGER011, INTEGER010
  169.     Print STRING011 + TSTRING004(INTEGER004)
  170.     Return
  171.     :LABEL008
  172.     AnsiPos INTEGER011, INTEGER010
  173.     Print Space(Len(TSTRING004(INTEGER004 + 1))) + "@X08"
  174.     AnsiPos INTEGER011, INTEGER010
  175.     Print STRING011 + TSTRING004(INTEGER004)
  176.     Return
  177.     :LABEL009
  178.     If (INTEGER002 == 1) Gosub LABEL011
  179.     If (INTEGER002 == STRING005) Gosub LABEL012
  180.     If ((INTEGER002 <> STRING005) && (INTEGER002 <> 1)) Gosub LABEL010
  181.     Return
  182.     :LABEL010
  183.     AnsiPos INTEGER006 - 2, INTEGER007
  184.     Print "@X0F"
  185.     AnsiPos INTEGER006 - 2, INTEGER007 + 2
  186.     Print "@X0F"
  187.     Return
  188.     :LABEL011
  189.     AnsiPos INTEGER006 - 2, INTEGER007
  190.     Print "@X0F "
  191.     AnsiPos INTEGER006 - 2, INTEGER007 + 2
  192.     Print "@X0F"
  193.     Return
  194.     :LABEL012
  195.     AnsiPos INTEGER006 - 2, INTEGER007
  196.     Print "@X0F"
  197.     AnsiPos INTEGER006 - 2, INTEGER007 + 2
  198.     Print "@X0F "
  199.     Return
  200.     :LABEL013
  201.     AnsiPos INTEGER012, INTEGER013
  202.     If (STRING012 == "Y") Goto LABEL014
  203.     STRING012 = "Y"
  204.     Print STRING013 + "YeS"
  205.     Return
  206.     :LABEL014
  207.     STRING012 = "N"
  208.     Print STRING013 + "No "
  209.     Return
  210.     :LABEL015
  211.     Cls
  212.     STRING010 = "CoDe By HoLLoWMaN"
  213.     Gosub LABEL016
  214.     STRING010 = "aeGiS^CoRP. 1996"
  215.     Delay 1
  216.     Gosub LABEL016
  217.     End
  218.     :LABEL016
  219.     INTEGER005 = (80 - Len(STRING010)) / 2
  220.     AnsiPos INTEGER005, 12
  221.     Print "@X0F" + STRING010
  222.     Delay 2
  223.     AnsiPos INTEGER005, 12
  224.     Print "@X07" + STRING010
  225.     Delay 2
  226.     AnsiPos INTEGER005, 12
  227.     Print "@X08" + STRING010
  228.     Delay 2
  229.     AnsiPos INTEGER005, 12
  230.     Print "                  "
  231.     Return
  232.     :LABEL017
  233.     AnsiPos 1, INTEGER007 + STRING005 + 1
  234.     KbdStuff "E" + Chr(13)
  235.     KbdStuff TSTRING003(INTEGER003) + Chr(13)
  236.     KbdStuff "(φ) aεGiS' ComMe∩τ (φ)" + Chr(13)
  237.     KbdStuff "R" + Chr(13)
  238.     KbdStuff STRING012 + Chr(13)
  239.     End
  240.  
  241. ;------------------------------------------------------------------------------
  242. ;
  243. ; Usage report (before postprocessing)
  244. ;
  245. ; ■ Statements used :
  246. ;
  247. ;    2       End
  248. ;    2       Cls
  249. ;    17      Goto 
  250. ;    54      Let 
  251. ;    33      Print 
  252. ;    22      If 
  253. ;    1       DispFile 
  254. ;    1       FClose 
  255. ;    1       GetUser
  256. ;    14      Gosub 
  257. ;    11      Return
  258. ;    5       Delay 
  259. ;    5       Inc 
  260. ;    1       Dec 
  261. ;    5       KbdStuff 
  262. ;    33      AnsiPos 
  263. ;
  264. ;
  265. ; ■ Functions used :
  266. ;
  267. ;    1       -
  268. ;    8       *
  269. ;    2       /
  270. ;    76      +
  271. ;    24      -
  272. ;    14      ==
  273. ;    2       <>
  274. ;    7       <
  275. ;    5       <=
  276. ;    5       >
  277. ;    10      >=
  278. ;    5       !
  279. ;    13      &&
  280. ;    8       ||
  281. ;    10      Len(
  282. ;    1       Upper()
  283. ;    3       Mid()
  284. ;    8       Space()
  285. ;    7       Chr()
  286. ;    3       Trim()
  287. ;    1       Random()
  288. ;    1       Inkey()
  289. ;    13      PPEPath()
  290. ;    12      ReadLine()
  291. ;
  292. ;------------------------------------------------------------------------------
  293. ;
  294. ; Analysis flags : No flag
  295. ;
  296. ;------------------------------------------------------------------------------
  297. ;
  298. ; Postprocessing report
  299. ;
  300. ;    5       For/Next
  301. ;    0       While/EndWhile
  302. ;    0       If/Then or If/Then/Else
  303. ;    0       Select Case
  304. ;
  305. ;------------------------------------------------------------------------------
  306. ;                 AEGiS Corp - Break the routines, code against the machines!
  307. ;------------------------------------------------------------------------------
  308.